#!/usr/bin/perl"
$file_name='textfile1.txt';
$sum= 0;
open FILE, $file_name or die "Could not open $file_name $!\n";
while (<FILE>) {
	if($_ =~ /^start123end\n$/) {
		++$sum;
	}
}
close FILE;
print $sum;
